home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_1014_TTextListView < prev    next >
Encoding:
Text File  |  1992-04-08  |  831 b   |  36 lines
  1. %case doChoice%
  2.     %DoChoice%
  3. %case itemNr%
  4.     %DefineItem%
  5. %case classDecl%
  6.  
  7.     TYPE
  8.         %classname% = OBJECT (%superclass%) 
  9.             OVERRIDE METHOD GetItemText    (anItem:     INT16;
  10.                                      VAR aString:    Str255);
  11.             (*${QINSPECTOR*)
  12.             OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
  13.             (*$}*)
  14.         END(*%classname%*);
  15. %case gDeadStripSuppression%
  16.     %StripSuppression%
  17. %case classMethods%
  18.     (*----------*)
  19.     METHOD %classname%.GetItemText%    %(anItem:    INT16;
  20.                                  VAR aString:    Str255);
  21.     VAR
  22.         succ:    BOOLEAN;
  23.     BEGIN
  24.         Convert.IntToStr (anItem, aString, 1, succ); (*replace with something useful*)
  25.         String.Concat ("item ", aString, aString, succ);
  26.         MacString.ModToMacString (aString, aString);
  27.     END GetItemText;
  28.     
  29.     %ClassMethods%
  30. %case defImports%
  31.     FROM UGridView IMPORT
  32.         TTextListView;
  33. %case modImports%
  34.     IMPORT
  35.         Convert, String, MacString;
  36.